*** use with dataset "Corstange raw data_Grapevine Effect"


* Set working directory
// cd "SET WORKING DIRECTORY HERE"
 use "Corstange raw data_Grapevine Effect.dta", clear

gen day=.
replace day=0 if q1=="6/29/2011 0:00"
replace day=1 if q1=="6/30/2011 0:00"
replace day=2 if q1=="7/1/2011 0:00"
replace day=3 if q1=="7/2/2011 0:00"
replace day=4 if q1=="7/3/2011 0:00"
replace day=5 if q1=="7/4/2011 0:00"
replace day=6 if q1=="7/5/2011 0:00"
replace day=7 if q1=="7/6/2011 0:00"
replace day=8 if q1=="7/7/2011 0:00"
replace day=9 if q1=="7/8/2011 0:00"
replace day=10 if q1=="7/9/2011 0:00"
replace day=11 if q1=="7/10/2011 0:00"
replace day=12 if q1=="7/11/2011 0:00"
replace day=15 if q1=="7/14/2011 0:00"

bysort q2: sum day

gen date2 = day
replace date2 = date2-2 if q2==1
replace date2 = date2-0 if q2==2
replace date2 = date2-0 if q2==3
replace date2 = date2-1 if q2==4
replace date2 = date2-1 if q2==5
replace date2 = date2-0 if q2==6
replace date2 = date2-12 if q2==7
replace date2 = date2-0 if q2==8
replace date2 = date2-3 if q2==9
replace date2 = date2-6 if q2==10
replace date2 = date2-8 if q2==13
replace date2 = date2-7 if q2==15
replace date2 = date2-7 if q2==16
replace date2 = date2-9 if q2==17
replace date2 = date2-9 if q2==18
replace date2 = date2-9 if q2==19
replace date2 = date2-11 if q2==20

gen treatment=.
replace treatment=0 if q4==1
replace treatment=1 if q4==2

gen shianeigh=0
replace shianeigh=1 if q30==3
replace shianeigh=. if q30==-98
tab shianeigh

replace q18=. if q18==-99
replace q18=. if q18==-98
replace q18=. if q18==99
replace q21=. if q21==-99
replace q21=. if q21==-98
replace q21=. if q21==99
replace q22=. if q22==-99
replace q22=. if q22==-98
replace q22=. if q22==99
replace q24=. if q24==-99
replace q24=. if q24==-98
replace q24=. if q24==99

egen support_hezbol = rowmean(q18 q21 q22 q24)

replace q7=. if q7==-99
replace q7=. if q7==99
replace q8=. if q8==-99
replace q8=. if q8==-98
replace q8=. if q8==99


*** Table 5 ***

areg support_hezbol c.date2 c.date2#shianeigh q7 q8, absorb(q2) cluster(q2) 


drop if q2==1
drop if q2==7
drop if q2==20


*** Table A5 ***

areg support_hezbol c.date2 c.date2#shianeigh q7 q8, absorb(q2) cluster(q2) 
